Option Explicit
'ThisWorkbookҲ
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    MsgBox Me.Name & "wgOActive]ҥΡ^AFC"
End Sub
